perm filename FILE.VLI[VLI,LSP] blob sn#381985 filedate 1978-09-08 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 acces au systeme de gestion de fichier 
C00003 ENDMK
CāŠ—;
; acces au systeme de gestion de fichier ;

(DF FILE (F ;; file1 file2 status)
   (SETQ file1 (EVAL (CADR F))
	 file2 (EVAL (CADDR F)))
   (SETQ status
      (SELECTQ (CAR F)
	(READ
	   (FILOP [1 1] file1))
	(CREATE
	   (FILOP [2 2] file1))
	(WRITE
	   (FILOP [2 3] file1))
	(UPDATES
	   (FILOP [1 4] file1))
	(UPDATEM
	   (FILOP [1 5] file1))
	(APPEND
	   (FILOP [2 6] file1))
	(-1)))